Top 10k strings from Spectrum Forth v1.1 (1982)(Artic Computing).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
2 k*~b+p+q"~b
2 SpecForth
1 sy<g5e?i|i
1 e*~b^#V#s#r
1 e*~b^#V#"~b
1 e*~bN#F#"~b
1 c7c*~b++++"~b
1 b"=\!`{"c\#"e\
1 ZX-FORTH 1.1^d
1 Ss<gZsyflf
1 Specfort ,
1 READY CASSETTE
1 EMPTY-BUFFER
1 DEFINITION
1 BYTES FREE
1 BLOCK-WRIT
1 ALL RIGHTS RESERVED^d
1 : i dup s r ; : top 0 r# ! ; : clear dup first ! scr ! 10 0 do forth i editor e loop ; forth definitions : 2drop drop drop ; : 2swap rot >r rot r> ; editor definitions : -text swap -dup if over + swap do dup c@ forth i c@ - if 0= leave else 1+ then loop else drop 0= then ; : match >r >r 2dup r> r> 2swap over + swap do 2dup forth i -text if >r 2drop r> - i swap - 0 swap 0 0 leave then loop 2drop swap 0= swap ; : 1line #lag pad count match r# +! ; : find begin 3ff r# @ < if top pad here c/l 1+ cmove 0 error endif 1line until ; : delete >r #lag + forth r - #lag r minus r# +! #lead + swap cmove r> blanks ; : n find 0 m ; : f 1 text n ; : b pad c@ minus m ; : x 1 text find pad c@ delete 0 m ; : till #lead + 1 text 1line 0= 0 ?error #lead + swap - delete 0 m ; -->
1 : c 1 text pad count #lag rot over min >r forth r r# +! r - >r dup here r cmove here #lead + r> cmove r> cmove 0 m ; forth definitions decimal ;s ( Specforth Editor V1.1 ) ( Copyright 1983 by Artic Computing Ltd. ) ( Written by Chris. Thornton - 1983 ) ( For further details see the Editor manual supplied )
1 .cSc*~b^#V
1 +*c\+"c\"e\x
1 *~b++"~bs#r
1 (C)1982 ARTIC COMPUTING LTD.^d
1 ( Specforth editor by C.A.Thornton,1983 ) forth definitions hex : text here c/l 1+ blanks word here pad c/l 1+ cmove ; : line dup fff0 and 17 ?error scr @ (line) drop ; vocabulary editor immediate hex : where dup b/scr / dup scr ! ." Scr # " decimal . swap c/l /mod c/l * rot block + cr c/l type cr here c@ - spaces 5e emit [compile] editor quit ; editor definitions : #locate r# @ c/l /mod ; : #lead #locate line swap ; : #lag #lead dup >r + c/l r> - ; : -move line c/l cmove ; : h line pad 1+ c/l dup pad c! cmove ; : e line c/l blanks ; : s dup 1 - 0e do i line i 1+ -move -1 +loop e ; : d dup h 0f dup rot do i 1+ line i -move loop e ; : m r# +! cr space #lead type 5f emit #lag type #locate . drop ; : t dup c/l * r# ! dup h 0 m ; : l scr @ list 0 m ; : r pad 1+ swap -move ; : p 1 text r ; -->
1 "v<g?i|i[i
1 "SpecForth"